Super League/Super League.iso/TELFNICA/INFO/UNDIA.DIR/00004.ls

Text File | 1997-04-23 | 663 b | 36 lines

on boton
  repeat with h = 18 down to 12
    puppetSprite(h, 1)
    if rollOver(h) = 1 then
      set the castNum of sprite h to h
    end if
    if rollOver(h) = 0 then
      puppetSprite(h, 0)
    end if
  end repeat
end

on cambiar
  if the clickOn = 12 then
    go(1, "menu.dir")
  end if
  if the clickOn = 13 then
    go(1, "historia.dir")
  end if
  if the clickOn = 14 then
    go(1, "vision.dir")
  end if
  if the clickOn = 15 then
    go(1, "sociedad.dir")
  end if
  if the clickOn = 16 then
    go(1, "indice.dir")
  end if
  if the clickOn = 17 then
    go(1, "empresas.dir")
  end if
  if the clickOn = 18 then
    go(1, "catemp.dir")
  end if
end